' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2024.09.09.00.00]) on 2025.02.08 at 07:06 (Coordinated Universal Time)
' This program by Charlie Veniot is inspired by a small programming challenge by ZXDunny.

SCREEN _NEWIMAGE(370,370,17)

DIM I%(10000)

COLOR 0, 63
CLS

FOR I = 0 TO 30 STEP 7
    LINE ( 1 + I, 1 + I ) TO ( 62 - I, 62 - I ),0,B
    LINE ( 62 + I, 1 + I ) TO ( 123 - I, 62 - I ),0,B
    LINE ( 1 + I, 62 + I ) TO ( 62 - I, 123 - I ),0,B
    LINE ( 62 + I, 62 + I ) TO ( 123 - I, 123 - I ),0,B
NEXT I

LINE (62,1) TO (1, 62), 0
LINE (62,1) TO (123, 62), 0
LINE (1,62) TO (62, 123), 0
LINE (62,123) TO (123, 62), 0

🎨PaintLoop:

PCOPY 0, 1

C1% = INT( RND * 62 ) + 1
C2% = INT( RND * 62 ) + 1

FOR I = 7 TO 21 STEP 14
   PAINT ( 2 + I, 2 + I ), C1%, 0
   PAINT ( 63 + I, 61 - I ), C1%, 0
   PAINT ( 61 - I, 63 + I ), C1%, 0
   PAINT ( 122 - I, 122 - I ), C1%, 0
NEXT I

FOR I = 0 TO 32 STEP 14
   PAINT ( 61 - I, 61 - I ), C2%, 0
   PAINT ( 122 - I, 2 + I ), C2%, 0
   PAINT ( 2 + I, 122 - I ), C2%, 0
   PAINT ( 63 + I, 63 + I ), C2%, 0
NEXT I

GET (1,1) - (123,123), I%
PUT (123, 1), I%, PSET
PUT (245, 1), I%, PSET
PUT (1, 123), I%, PSET
PUT (123, 123), I%, PSET
PUT (245, 123), I%, PSET
PUT (1, 245), I%, PSET
PUT (123, 245), I%, PSET
PUT (245, 245), I%, PSET

PCOPY 0, 2
PCOPY 1, 0

FOR Y = 0 TO 369
PCOPY (0, Y) - (369, Y), 2, 0
SLEEP 0.003
NEXT Y

SLEEP 4

GOTO 🎨PaintLoop